Dim myRpt As Object
Dim CR_Dataset As New addcr()
myRpt = New AddrBkRpt()
SqlDataAdapter1.Fill(CR_Dataset)
myRpt.setdatasource(CR_Dataset)
WebCRV.ReportSource = myRpt
